Public Class CPerson

    Private _intPersonID As Integer = 0
    Private _strSeqPersonID As String
    Private _strTitle As String
    Private _strFName As String
    Private _strMName As String
    Private _strLName As String
    Private _strDspName As String = ""
    Private _chrSex As Char
    Private _dtDOB As Date
    Private _strtAge As String
    Private _chrMStatus As Char
    Private _strPanNo As String

    Public Sub New()

    End Sub

    Public Property PersonID() As Integer
        Get
            Return _intPersonID
        End Get
        Set(ByVal value As Integer)
            _intPersonID = value
        End Set
    End Property

    Public Property SeqPersonID() As String
        Get
            Return _strSeqPersonID
        End Get
        Set(ByVal value As String)
            _strSeqPersonID = value
        End Set
    End Property

    Public Property Title() As String
        Get
            Return _strTitle
        End Get
        Set(ByVal value As String)
            _strTitle = value
        End Set
    End Property

    Public Property First_Name() As String
        Get
            Return _strFName
        End Get
        Set(ByVal value As String)
            _strFName = value
        End Set
    End Property

    Public Property Middle_Name() As String
        Get
            Return _strMName
        End Get
        Set(ByVal value As String)
            _strMName = value
        End Set
    End Property

    Public Property Last_Name() As String
        Get
            Return _strLName
        End Get
        Set(ByVal value As String)
            _strLName = value
        End Set
    End Property

    Public Property Display_Name() As String
        Get
            Return _strDspName
        End Get
        Set(ByVal value As String)
            _strDspName = value
        End Set
    End Property

    Public Property Gender() As Char
        Get
            Return _chrSex
        End Get
        Set(ByVal value As Char)
            _chrSex = value
        End Set
    End Property

    Public Property DateOfBirth() As Date
        Get
            Return _dtDOB
        End Get
        Set(ByVal value As Date)
            _dtDOB = value
        End Set
    End Property

    Public Property Age() As String
        Get
            Return _strtAge
        End Get
        Set(ByVal value As String)
            _strtAge = value
        End Set
    End Property
    Public Property MaritalStatus() As Char
        Get
            Return _chrMStatus
        End Get
        Set(ByVal value As Char)
            _chrMStatus = value
        End Set
    End Property

    Public Property PanCardNo() As String
        Get
            Return _strPanNo
        End Get
        Set(ByVal value As String)
            _strPanNo = value
        End Set
    End Property

End Class
